From 91bf61bdda83b00cdaaf41c9176dae246f8d0c5d Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Sat, 24 Jan 2009 02:24:41 +0000 Subject: [PATCH] (calcFunc-apart): Improve test for rational functions. --- lisp/calc/calc-poly.el | 32 +++++++++++++++++--------------- 1 file changed, 17 insertions(+), 15 deletions(-) diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el index 7385e42c851..2246df94414 100644 --- a/lisp/calc/calc-poly.el +++ b/lisp/calc/calc-poly.el @@ -961,22 +961,24 @@ ((eq (car expr) '-) (math-sub (calcFunc-apart (nth 1 expr) var) (calcFunc-apart (nth 2 expr) var))) - ((not (math-ratpoly-p expr var)) - (math-reject-arg expr "Expected a rational function")) + ((and var (not (math-ratpoly-p expr var))) + (math-reject-arg expr "Expected a rational function")) (t - (let* ((calc-prefer-frac t) - (rat (math-to-ratpoly expr)) - (num (car rat)) - (den (cdr rat)) - (qr (math-poly-div num den)) - (q (car qr)) - (r (cdr qr))) - (or var - (setq var (math-polynomial-base den))) - (math-add q (or (and var - (math-expr-contains den var) - (math-partial-fractions r den var)) - (math-div r den))))))) + (let* ((calc-prefer-frac t) + (rat (math-to-ratpoly expr)) + (num (car rat)) + (den (cdr rat))) + (or var + (setq var (math-polynomial-base den))) + (if (not (math-ratpoly-p expr var)) + (math-reject-arg expr "Expected a rational function") + (let* ((qr (math-poly-div num den)) + (q (car qr)) + (r (cdr qr))) + (math-add q (or (and var + (math-expr-contains den var) + (math-partial-fractions r den var)) + (math-div r den))))))))) (defun math-padded-polynomial (expr var deg) -- 2.30.2